home *** CD-ROM | disk | FTP | other *** search
/ Stone Design / Stone Design.iso / Stone_Friends / Wave / WavesWorld / Examples / randomModels / TextInSphere.mdl / model.eve < prev   
Encoding:
Text File  |  1995-03-24  |  2.9 KB  |  55 lines
  1. # note that $modelPath is automagically set to be the complete path
  2. # name of whereever this .mdl file wrapper is located
  3. #
  4. source $modelPath/initialDefines.eve
  5. source $modelPath/initialProcs.eve
  6.  
  7. # note that since "source" is a built-in tcl command, we needed to
  8. # give it the full path name of the previous file so it could load it.
  9. # In the next command, though, since "loadControlPanel" is a new eve
  10. # command, it is smart enough to append the value of $modelPath to any
  11. # file that doesn't start with "/"
  12. #
  13. loadControlPanel controls.nib
  14.  
  15. startShape World
  16.  
  17.   drawBlobbyModel
  18.  
  19.   startShape sphereText
  20.     EveProc {drawTextSphere $sphere(radius) $text(color) $sphere(color) \
  21.                             $sphere(xRotate) $sphere(yRotate) $sphere(zRotate) \
  22.                             $sphere(xTranslate) $sphere(yTranslate) $sphere(zTranslate) \
  23.                             $text(string) $text(fontName) $text(size)}
  24.  
  25.     EveProc {drawTextSphere $sphere(radius) $text(color) $sphere(color) \
  26.                             $sphere(xRotate) $sphere(yRotate) $sphere(zRotate) \
  27.                             [expr {-.35 + $sphere(xTranslate)}] $sphere(yTranslate) $sphere(zTranslate) \
  28.                             sad $text(fontName) $text(size)}
  29.  
  30.     EveProc {drawTextSphere $sphere(radius) $text(color) $sphere(color) \
  31.                             $sphere(xRotate) $sphere(yRotate) $sphere(zRotate) \
  32.                             [expr {.35 + $sphere(xTranslate)}] $sphere(yTranslate) $sphere(zTranslate) \
  33.                             {.1 .1 .1} $text(fontName) [expr {.9 * $text(size)}]}
  34.  
  35.     EveProc {drawTextSphere [expr {.6 * $sphere(radius)}] $text(color) $sphere(color) \
  36.                             [expr {25 + $sphere(xRotate)}] $sphere(yRotate) $sphere(zRotate) \
  37.                             [expr {.25 + $sphere(xTranslate)}] [expr {.4 + $sphere(yTranslate)}] [expr {.8 * $sphere(zTranslate)}] \
  38.                             {1.0} $text(fontName) $text(size)}
  39.  
  40.     EveProc {drawTextSphere [expr {.6 * $sphere(radius)}] $text(color) $sphere(color) \
  41.                             [expr {25 + $sphere(xRotate)}] $sphere(yRotate) $sphere(zRotate) \
  42.                             [expr {-.25 + $sphere(xTranslate)}] [expr {.3 + $sphere(yTranslate)}] [expr {.9 * $sphere(zTranslate)}] \
  43.                             {0.0} $text(fontName) $text(size)}
  44.  
  45.     EveProc {drawTextSphereLever [expr {.7 * $sphere(radius)}] $text(color) $sphere(color) \
  46.                                  [expr {-25 + $sphere(xRotate)}] $sphere(yRotate) $sphere(zRotate) \
  47.                                  [expr {-.4 + $sphere(xTranslate)}] [expr {-.4 + $sphere(yTranslate)}] [expr {1.1 * $sphere(zTranslate)}] \
  48.                                  {yow} $text(fontName) $text(size) .3}
  49.    
  50.   endShape
  51. endShape
  52.  
  53. camera "set cam(lowRezTesselation) 4"; # note: doing a "camera {lowRezTesselation 4}" would do the same...
  54. camera "set cam(tesselation) 8"; # note: doing a "camera {tesselation 8}" would do the same...
  55.